#lang scribble/doc

@(require scribble/manual)


@title{Spherical Tear}

@defproc[(sphere-cloud 
          (ri (and/c real? positive?))
          (re (and/c real? positive?))
          (r (and/c real? positive?))
          (h (and/c real? positive?))
          (n (and/c integer? (not/c negative?))))
         any/c]{
Creates a spherical surface that results of subtracting a sphere of radius @racket[re] and a smaller sphere of radius @racket[ri].
Then, this spherical surface is pierced by a number @racket[n] of cones that changes with the sine.
The cones have radius @racket[r] and height @racket[h].
}